home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok58 / qsort / qsort.dok < prev    next >
Text File  |  1993-11-04  |  2KB  |  44 lines
  1. (*------------------------------------------------------------------)
  2.     :Program.    QSort (QuickSort-Algorithmus)
  3.     :Author.     Philippe Gressly (PHILU)
  4.     :Address.    Näfenhaus, CH-8926 Kappel a/Albis
  5.     :History     V0.99 (1.8.91)
  6.     :Update.
  7.     :Copyright.  PD
  8.     :Language.   Modula-II
  9.     :Translator. M2Amiga
  10.     :Imports.
  11.     :Support.
  12.     :Bugs.
  13.     :Contents.   Die Procedur zum Sortieren von Arrays.
  14.     :Remark.
  15.     :Usage.      (zB. CLI-Befehle)
  16. (------------------------------------------------------------------*)
  17.  
  18. QSort ist recht einfach in der Anwendung. Vor allem für Arrays ist
  19. der Quick-Sort gerade geschaffen. Jedes Element (Zahl, String, Record)
  20. kriegt eine Nummer. Um QSort anzuwenden müssen wir zuerst zwei
  21. Prozeduren schreiben. Eine, die uns die Elemente vergleicht, und eine,
  22. die uns die Elemente vertauscht. Die Prozeduren müssen Level Null haben
  23. und werden dem QSort mit übergeben.
  24.  
  25. Die Prozedur gt (greater than = größer als) zum Vergleichen von Elementen
  26. kriegt zwei Parameter (Nr1 und Nr2). Ist das Element an der Stelle Nr1
  27. echt größer als das Element an der Stelle Nr2, so soll die Prozedur
  28. TRUE zurückgeben, sonst FALSE.
  29.  
  30. Die Procedur swp (swap = vertauschen) kriegt ebenfalls zwei Argumente,
  31. nämlich die Nummern der Elemente die zu vertauschen sind.
  32. Beispiel:  swp(4,7) soll das Element mit Nummer 4 mit dem
  33.                     Element mit Nummer 7 vertauschen.
  34.  
  35. Das Modul QSortTest enthält eine einfache Anwendung: Das Sortieren von
  36. ganzen Zahlen.
  37.  
  38. Alles funktioniert natürlich auch für andere ARRAYS. Es müssen wie gesagt
  39. nur die beiden Proceduren geschrieben werden, und dem Algorithmus QSort
  40. mitübergeben werden.
  41.  
  42.  
  43.  
  44.